program SquareEquationsSolver;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Equation = class
    a, b, c: Integer;
    x1, x2, d: Real;
    procedure Solve;
  end;

var
  eq: Equation;

{ Equation }

procedure Equation.Solve;
begin
  if a <> 0 then
  begin
    if b <> 0 then
    begin
      d:= b*b - 4*a*c;
      if d > 0 then
      begin
        x1:= (-b + Sqrt(d))/(2*a);
        x2:= (-b - Sqrt(d))/(2*a);
        Writeln ('x1 = ', x1:0:3, '; x2 = ', x2:0:3);
      end;
      if d = 0 then
      begin
        x1:= (-b + Sqrt(d))/(2*a);
        Writeln ('x = ', x1:0:3);
      end;
      if d < 0 then
      begin
        Writeln ('There are no roots.');
      end;
    end else begin
      if ((c <= 0) and (a < 0))  or ((c >= 0) and (a > 0)) then
      begin
        Writeln ('There are no roots.');
      end else begin
        x1:= Sqrt(-c/a);
        x2:=-Sqrt(-c/a);
        Writeln ('x1 = ', x1:0:3, '; x2 = ', x2:0:3);
      end;
    end;
  end else begin
    if b <> 0 then
    begin
      x1:= -c/b;
      Writeln ('x = ', x1:0:3);
    end else begin
      if c = 0 then
      begin
        Writeln ('Any root is possible.');
      end else begin
        Writeln ('There are no roots.');
      end;
    end;
  end;
end;

begin
  eq:=Equation.Create;
  Readln (eq.a);
  Readln (eq.b);
  Readln (eq.c);
  eq.Solve;
  Readln;
end.
